home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 124
/
Tiger_Disk_124_20xx_Tiger-Crew-Disk_de_Side_B.d64
/
ende ii_11
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
442b
|
9 lines
10 printchr$(147):poke53280,.:poke53281,.:fori=1025to1124:s=54272:pokes+24,15
12 poke214,3:sys58640:print"[145][169][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][223]";
13 a=a+11:forc=3to5:poke646,c:ifa=429thenfort=1to500:next:sys59749:goto20
14 print"[169][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][223]";:pokei,66+(c-2):pokes+4,21
15 pokes+22,9:pokes+5,1*2+7:pokes+6,239:pokes+1,rnd(3)*.7:pokes+4,48:pokes+4,24
16 poke646,c+1: print"[165] [146]ende [167]";
18 next:next: goto10
20 print"[147][151]lukian":fort=1to3333:next:sys2048